home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWAPCP02.ZIP
/
TURBO110
/
TURBO.PPD
< prev
next >
Wrap
Text File
|
1995-11-15
|
5KB
|
214 lines
;------------------------------------------------------------------------------
;PCBoard Programming Language Decompiler 3.00 (C)1994-95 Chicken / Tools4Fools
;------------------------------------------------------------------------------
;
;PCBoard Programming Language Executable 3.10 detected.
;
;Source Code:
;------------------------------------------------------------------------------
INTEGER VAR001
STRING VAR002
STRING VAR003
STRING VAR004
DECLARE PROCEDURE PROC001()
DECLARE FUNCTION FUNC001(STRING LOC001) BOOLEAN
DECLARE PROCEDURE PROC002(SWORD LOC001,SWORD LOC002,SWORD LOC003)
STRING VAR005
BOOLEAN VAR006
SWORD VAR007
STRING VAR008
STRING VAR009
STRING VAR010
STRING VAR011
;------------------------------------------------------------------------------
LET VAR002=READLINE(PCBDAT(),94)
LET VAR001=LEN(VAR002)/12
LET VAR003=STRING(ASC(MID(VAR002,VAR001,3)))+STRING(ASC(RIGHT(VAR002,3)))+STRING(ASC(MID(VAR002,8,9)))
FOPEN 1,PPEPATH()+"KEY.CFG",O_RD,S_DN
FGET 1,VAR004
FCLOSE 1
;IF (VAR003<>VAR004) GOTO LABEL000
;IF (VAR003=VAR004) GOTO LABEL001
GOTO LABEL001
:LABEL001
GOTO LABEL002
:LABEL002
PROC001()
LET VAR006=FUNC001(READLINE(VAR005,8))
IF (!(VAR006=0)) GOTO LABEL003
GOTO LABEL015
:LABEL003
END
FUNCTION FUNC001(STRING LOC001) BOOLEAN
STRING LOC002
SWORD LOC003
SWORD LOC004
SWORD LOC005
BOOLEAN LOC006
PRINT LOC001
LET LOC003=GETX()
PRINT VAR008+SPACE(VAR007)
LET LOC004=GETX()
PRINT VAR010
LET LOC005=1
PROC002(LOC005,LOC003,LOC004)
LET LOC006=0
:LABEL004
IF (!(LOC006=0)) GOTO LABEL010
LET LOC002=ASC(INKEY())
IF (!(LOC002=13)) GOTO LABEL005
LET LOC006=1
GOTO LABEL009
:LABEL005
IF (!(((LOC002=76)|(LOC002=68))|(LOC002=44))) GOTO LABEL006
DEC LOC005
IF (LOC005<1) LET LOC005=2
PROC002(LOC005,LOC003,LOC004)
GOTO LABEL009
:LABEL006
IF (!(((LOC002=82)|(LOC002=85))|(LOC002=46))) GOTO LABEL007
INC LOC005
IF (LOC005>2) LET LOC005=1
PROC002(LOC005,LOC003,LOC004)
GOTO LABEL009
:LABEL007
IF (!((LOC002=89)|(LOC002=121))) GOTO LABEL008
LET LOC005=2
PROC002(LOC005,LOC003,LOC004)
LET LOC006=1
GOTO LABEL009
:LABEL008
IF (!((LOC002=78)|(LOC002=110))) GOTO LABEL009
LET LOC005=1
PROC002(LOC005,LOC003,LOC004)
LET LOC006=1
:LABEL009
GOTO LABEL004
:LABEL010
NEWLINE
IF (!(LOC005=1)) GOTO LABEL011
LET FUNC001=0
GOTO LABEL012
:LABEL011
LET FUNC001=1
DISPFILE PPEPATH()+"FAST",CURSEC()
:LABEL012
ENDFUNC
PROCEDURE PROC002(SWORD LOC001,SWORD LOC002,SWORD LOC003)
IF (!(LOC001=2)) GOTO LABEL013
PRINT CHR(13)
FORWARD LOC002-1
PRINT VAR008
PRINT CHR(13)
FORWARD LOC003-1
PRINT VAR011
GOTO LABEL014
:LABEL013
IF (!(LOC001=1)) GOTO LABEL014
PRINT CHR(13)
FORWARD LOC003-1
PRINT VAR010
PRINT CHR(13)
FORWARD LOC002-1
PRINT VAR009
:LABEL014
ENDPROC
PROCEDURE PROC001()
GETUSER
LET VAR005=PPEPATH()+"TURBO.CFG"
LET VAR007=S2I(READLINE(VAR005,3),10)
LET VAR008=READLINE(VAR005,4)
LET VAR009=READLINE(VAR005,5)
LET VAR010=READLINE(VAR005,6)
LET VAR011=READLINE(VAR005,7)
ENDPROC
:LABEL015
NEWLINE
DISPFILE PPEPATH()+"SLOW",CURSEC()
END
;------------------------------------------------------------------------------
;Statements used:
;
; 2 END
; 21 GOTO
; 24 LET
; 11 PRINT
; 2 PRINTLN
; 14 IF
; 2 DISPFILE
; 1 FOPEN
; 1 FCLOSE
; 1 FGET
; 1 GETUSER
; 1 DELAY
; 1 INC
; 1 DEC
; 2 NEWLINE
; 4 FORWARD
; 6 PROC
; 2 ENDPROC
; 1 ENDFUNC
;
;Functions used:
;
; 1 *
; 1 /
; 7 +
; 4 -
; 17 =
; 1 <>
; 1 <
; 1 >
; 10 !
; 6 |
; 1 LEN
; 2 MID
; 1 RIGHT
; 1 SPACE
; 4 CHR
; 4 ASC
; 1 INKEY
; 3 STRING
; 1 PCBDAT
; 4 PPEPATH
; 7 READLINE
; 2 CURSEC
; 1 S2I
; 2 GETX
;
;------------------------------------------------------------------------------
;Thank you for using PPLD T4F - We Create Your Needs Of Tommorow !
;------------------------------------------------------------------------------